home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 7 / Amiga Format AFCD07 (Dec 1996, Issue 91).iso / serious / shareware / comms / internet / html-related / envwww09 / www / arexx / document.ged < prev    next >
Text File  |  1996-09-13  |  4KB  |  130 lines
  1. /* $VER: 1.0, ©1996 Dietmar Eilert. Create empty HTML document */
  2.  
  3. OPTIONS RESULTS                             /* enable return codes     */
  4.  
  5. if (LEFT(ADDRESS(), 6) ~= "GOLDED") then    /* not started by GoldEd ? */
  6.     address 'GOLDED.1'
  7.  
  8. 'LOCK CURRENT RELEASE=4'                    /* lock GUI, gain access   */
  9. if (RC ~= 0) then
  10.     exit
  11.  
  12. OPTIONS FAILAT 6                            /* ignore warnings         */
  13. SIGNAL ON SYNTAX                            /* ensure clean exit       */
  14.  
  15. /* ------------------------ INSERT YOUR CODE HERE: ------------------- */
  16.  
  17. 'QUERY USER VAR=AUTHOR'
  18. 'QUERY VER  VAR=VERSION'
  19. 'QUERY DOC  VAR=DOC'
  20.  
  21. 'FIX VAR=DOC'
  22.  
  23. 'SUFFIX STRING="' || DOC || '" SUFFIX=".html"'
  24.  
  25. 'NAME NEW=' || RESULT
  26.  
  27. 'REQUEST TITLE="Create new HTML document" BODY="Select one of the following options:||1) Step-by-step setup|2) Quick setup" BUTTON="!STEP|_Quick|_Cancel" VAR=QUICK'
  28.  
  29. if ((RC = 0) & (RESULT ~= 0)) then do
  30.  
  31.     if (QUICK = 1) then do
  32.  
  33.         'REQUEST STRING TITLE="Create new HTML document" BODY="Document''s title                " OLD="Untitled" VAR=TITLE'
  34.  
  35.         if (RC = 0) then do
  36.  
  37.             'REQUEST STRING TITLE="Create new HTML document" BODY="Document''s author               " OLD="' || AUTHOR || '" VAR=AUTHOR'
  38.  
  39.             if (RC = 0) then do
  40.  
  41.                 'REQUEST STRING TITLE="Create new HTML document" BODY="Short description               " OLD="Empty document"   VAR=DESCRIPTION'
  42.  
  43.                 if (RC = 0) then do
  44.  
  45.                     'REQUEST STRING TITLE="Create new HTML document" BODY="Keywords for search engines (<key>, ...)    " VAR=KEYWORDS'
  46.  
  47.                     if (RC = 0) then do
  48.  
  49.                         'FIX VAR=TITLE'
  50.                         'FIX VAR=AUTHOR'
  51.                         'FIX VAR=DESCRIPTION'
  52.                         'FIX VAR=KEYWORDS'
  53.  
  54.                         'GOTO COLUMN=1'
  55.                         'TEXT CR T="<!-- Created with ' || substr(VERSION, 7) ||' -->"'
  56.                         'CR'
  57.                         'TEXT CR T="<HEAD>"'
  58.                         'TEXT CR T="<TITLE>"'
  59.                         'TEXT CR T="' || TITLE || '"'
  60.                         'TEXT CR T="</TITLE>"'
  61.                         CR
  62.  
  63.                         'TEXT CR T="<META NAME=*"description*" CONTENT=*"' || DESCRIPTION || '*">"'
  64.                         'TEXT CR T="<META NAME=*"keywords*"    CONTENT=*"' || KEYWORDS    || '*">"'
  65.                         'TEXT CR T="<META NAME=*"author*"      CONTENT=*"' || AUTHOR      || '*">"'
  66.                         'TEXT CR T="<META NAME=*"generator*"   CONTENT=*"WWW publishing extensions for GoldED*">"'
  67.  
  68.                         'CR'
  69.                         'TEXT CR T="</HEAD>"'
  70.                         'CR'
  71.                         'TEXT CR T="<BODY>"'
  72.                         'PING SLOT=0'
  73.                         'CR'
  74.  
  75.                         'TEXT CR T="</BODY>"'
  76.                         'CR'
  77.                         'TEXT CR T="</HTML>"'
  78.                         'PONG SLOT=0'
  79.  
  80.                         'REQUEST STATUS="Insert your text here."'
  81.                     end
  82.                 end
  83.             end
  84.         end
  85.     end
  86.     else do
  87.  
  88.         'GOTO COLUMN=1'
  89.         'TEXT CR T="<!-- Created with ' || substr(VERSION, 7) ||' -->"'
  90.         'CR'
  91.         'TEXT CR T="<HEAD>"'
  92.         'TEXT CR T="<TITLE>"'
  93.         'TEXT CR T="Untitled"'
  94.         'TEXT CR T="</TITLE>"'
  95.         CR
  96.  
  97.         'TEXT CR T="<META NAME=*"description*" CONTENT=*"Under construction*">"'
  98.         'TEXT CR T="<META NAME=*"keywords*"    CONTENT=*"*">"'
  99.         'TEXT CR T="<META NAME=*"author*"      CONTENT=*"' || AUTHOR      || '*">"'
  100.         'TEXT CR T="<META NAME=*"generator*"   CONTENT=*"WWW publishing extensions for GoldED*">"'
  101.  
  102.         'CR'
  103.         'TEXT CR T="</HEAD>"'
  104.         'CR'
  105.         'TEXT CR T="<BODY>"'
  106.         'PING SLOT=0'
  107.         'CR'
  108.  
  109.         'TEXT CR T="</BODY>"'
  110.         'CR'
  111.         'TEXT CR T="</HTML>"'
  112.         'PONG SLOT=0'
  113.  
  114.         'REQUEST STATUS="Insert your text here."'
  115.  
  116.     endif
  117. end
  118.  
  119. /* ---------------------------- END OF YOUR CODE --------------------- */
  120.  
  121. 'UNLOCK' /* VERY important: unlock GUI */
  122. EXIT
  123.  
  124. SYNTAX:
  125.  
  126. SAY "Sorry, error line" SIGL ":" ERRORTEXT(RC) ":-("
  127. 'UNLOCK'
  128. EXIT
  129.  
  130.